object FrPrincipal: TFrPrincipal
  Left = 829
  Top = 439
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = 'Conv. Labareda'
  ClientHeight = 166
  ClientWidth = 499
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesigned
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Barra: TGauge
    Left = 8
    Top = 122
    Width = 235
    Height = 38
    BackColor = clSilver
    BorderStyle = bsNone
    Color = clMenuHighlight
    ParentColor = False
    Progress = 0
  end
  object lbStatus: TLabel
    Left = 8
    Top = 146
    Width = 236
    Height = 12
    Alignment = taCenter
    AutoSize = False
    Caption = '...'
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object Label1: TLabel
    Left = 10
    Top = 122
    Width = 234
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'Convers'#227'o'
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object Label6: TLabel
    Left = 128
    Top = 164
    Width = 23
    Height = 13
    Caption = 'Item:'
  end
  object lblnome: TLabel
    Left = 165
    Top = 164
    Width = 36
    Height = 13
    Caption = 'lblnome'
  end
  object Label7: TLabel
    Left = 8
    Top = 164
    Width = 56
    Height = 13
    Caption = 'Nota Fiscal:'
  end
  object lblnota: TLabel
    Left = 70
    Top = 164
    Width = 24
    Height = 13
    Caption = '1234'
  end
  object qtde: TLabel
    Left = 240
    Top = 164
    Width = 26
    Height = 13
    Caption = 'Qtde:'
  end
  object lblqtde: TLabel
    Left = 273
    Top = 164
    Width = 24
    Height = 13
    Caption = '........'
  end
  object BtnOK: TBitBtn
    Left = 370
    Top = 122
    Width = 115
    Height = 38
    Caption = 'CONVERTER'
    Default = True
    DoubleBuffered = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentDoubleBuffered = False
    ParentFont = False
    TabOrder = 0
    OnClick = BtnOKClick
  end
  object Panel3: TPanel
    Left = 250
    Top = 8
    Width = 115
    Height = 105
    TabOrder = 1
    object Label4: TLabel
      Left = 89
      Top = 73
      Width = 24
      Height = 29
      Caption = '3'#176
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clSilver
      Font.Height = -23
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object ckNFSaida: TCheckBox
      Left = 8
      Top = 33
      Width = 73
      Height = 17
      Caption = 'NF Sa'#237'da'
      TabOrder = 0
    end
    object ckNFEntrada: TCheckBox
      Left = 8
      Top = 10
      Width = 81
      Height = 17
      Caption = 'NF Entrada'
      TabOrder = 1
    end
    object ckPedidos: TCheckBox
      Left = 8
      Top = 56
      Width = 65
      Height = 17
      Caption = 'Pedidos'
      TabOrder = 2
    end
    object ckOrcamentos: TCheckBox
      Left = 8
      Top = 79
      Width = 81
      Height = 17
      Caption = 'Or'#231'amentos'
      TabOrder = 3
    end
  end
  object Panel4: TPanel
    Left = 371
    Top = 8
    Width = 115
    Height = 105
    TabOrder = 2
    object Label5: TLabel
      Left = 89
      Top = 74
      Width = 24
      Height = 29
      Caption = '4'#176
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clSilver
      Font.Height = -23
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object ckPagar: TCheckBox
      Left = 7
      Top = 9
      Width = 82
      Height = 17
      Caption = 'CT Pagar'
      TabOrder = 0
    end
    object ckReceber: TCheckBox
      Left = 7
      Top = 32
      Width = 74
      Height = 17
      Caption = 'CT Receber'
      TabOrder = 1
    end
    object ckFinanceiro: TCheckBox
      Left = 7
      Top = 54
      Width = 97
      Height = 17
      Caption = 'Mov Financeiro'
      TabOrder = 2
    end
  end
  object btApaga: TButton
    Left = 303
    Top = 122
    Width = 62
    Height = 38
    Caption = 'Apaga Tab'
    TabOrder = 3
    OnClick = btApagaClick
  end
  object btLimpa: TButton
    Left = 248
    Top = 122
    Width = 49
    Height = 38
    Caption = 'Limpa'
    TabOrder = 4
    OnClick = btLimpaClick
  end
  object Panel2: TPanel
    Left = 128
    Top = 8
    Width = 115
    Height = 105
    TabOrder = 5
    object Label2: TLabel
      Left = 90
      Top = 74
      Width = 24
      Height = 29
      Caption = '2'#176
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clSilver
      Font.Height = -23
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object ckGrupos: TCheckBox
      Left = 16
      Top = 31
      Width = 81
      Height = 17
      Caption = 'Prod. Grupos'
      TabOrder = 0
    end
    object ckLocal: TCheckBox
      Left = 16
      Top = 54
      Width = 74
      Height = 17
      Caption = 'Localiza'#231#227'o'
      TabOrder = 1
    end
    object ckProduto: TCheckBox
      Left = 16
      Top = 77
      Width = 67
      Height = 17
      Caption = 'Produto'
      TabOrder = 2
    end
    object ckMarcas: TCheckBox
      Left = 16
      Top = 9
      Width = 67
      Height = 17
      Caption = 'Marcas'
      TabOrder = 3
    end
  end
  object Panel1: TPanel
    Left = 8
    Top = 8
    Width = 115
    Height = 105
    TabOrder = 6
    object Label3: TLabel
      Left = 89
      Top = 73
      Width = 24
      Height = 29
      Caption = '1'#176
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clSilver
      Font.Height = -23
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object ckFornecedor: TCheckBox
      Left = 10
      Top = 79
      Width = 81
      Height = 17
      Caption = 'Fornecedor'
      Enabled = False
      TabOrder = 0
    end
    object ckFuncionarios: TCheckBox
      Left = 10
      Top = 56
      Width = 81
      Height = 17
      Caption = 'Funcionarios'
      Enabled = False
      TabOrder = 1
    end
    object ckCliente: TCheckBox
      Left = 10
      Top = 33
      Width = 81
      Height = 17
      Caption = 'Cliente'
      TabOrder = 2
    end
    object ckFormaPag: TCheckBox
      Left = 10
      Top = 10
      Width = 95
      Height = 17
      Caption = 'Condi'#231#227'o Pagto'
      TabOrder = 3
    end
  end
  object ADOCon: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Us' +
      'ers\USER\Desktop\MAQPLAST2\labareda.mdb;Mode=ReadWrite;Persist S' +
      'ecurity Info=False;Jet OLEDB:System database=SYSTEM.MDW;Jet OLED' +
      'B:Registry Path="";Jet OLEDB:Database Password=masterMAQ;Jet OLE' +
      'DB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Glo' +
      'bal Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet ' +
      'OLEDB:New Database Password="";Jet OLEDB:Create System Database=' +
      'False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don'#39't Copy Loca' +
      'le on Compact=False;Jet OLEDB:Compact Without Replica Repair=Fal' +
      'se;Jet OLEDB:SFP=False;'
    CursorLocation = clUseServer
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 489
    Top = 200
  end
  object ADOProdutos: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbProduto ')
    Left = 440
    Top = 192
    object ADOProdutoscodproduto: TFloatField
      FieldName = 'codproduto'
    end
    object ADOProdutoscodprodutogrupo: TIntegerField
      FieldName = 'codprodutogrupo'
    end
    object ADOProdutoscodprodutogruposub: TIntegerField
      FieldName = 'codprodutogruposub'
    end
    object ADOProdutoscdbarra: TWideStringField
      FieldName = 'cdbarra'
      Size = 50
    end
    object ADOProdutosdtcadastro: TDateTimeField
      FieldName = 'dtcadastro'
    end
    object ADOProdutosclassificacao: TWideStringField
      FieldName = 'classificacao'
      Size = 1
    end
    object ADOProdutosdescricao: TWideStringField
      FieldName = 'descricao'
      Size = 100
    end
    object ADOProdutoscodunidade: TSmallintField
      FieldName = 'codunidade'
    end
    object ADOProdutoscodtamanho: TSmallintField
      FieldName = 'codtamanho'
    end
    object ADOProdutoscodcor: TSmallintField
      FieldName = 'codcor'
    end
    object ADOProdutoscodmarca: TSmallintField
      FieldName = 'codmarca'
    end
    object ADOProdutoscodmodelo: TSmallintField
      FieldName = 'codmodelo'
    end
    object ADOProdutospeso: TFloatField
      FieldName = 'peso'
    end
    object ADOProdutoscodprodutolocal: TSmallintField
      FieldName = 'codprodutolocal'
    end
    object ADOProdutospcompra: TFloatField
      FieldName = 'pcompra'
    end
    object ADOProdutospvenda: TFloatField
      FieldName = 'pvenda'
    end
    object ADOProdutosipi: TFloatField
      FieldName = 'ipi'
    end
    object ADOProdutosicms: TFloatField
      FieldName = 'icms'
    end
    object ADOProdutosqtdminima: TFloatField
      FieldName = 'qtdminima'
    end
    object ADOProdutosqtdmaxima: TFloatField
      FieldName = 'qtdmaxima'
    end
    object ADOProdutoscodprodutosimilar: TFloatField
      FieldName = 'codprodutosimilar'
    end
    object ADOProdutoscst: TWideStringField
      FieldName = 'cst'
      Size = 3
    end
    object ADOProdutosaplicacao: TWideMemoField
      FieldName = 'aplicacao'
      BlobType = ftWideMemo
    end
    object ADOProdutoscodcf: TSmallintField
      FieldName = 'codcf'
    end
    object ADOProdutosid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOProdutoscodusuario: TSmallintField
      FieldName = 'codusuario'
    end
    object ADOProdutostime_stamp: TWideStringField
      FieldName = 'time_stamp'
      Size = 14
    end
    object ADOProdutostrayidproduto: TIntegerField
      FieldName = 'trayidproduto'
    end
    object ADOProdutosdsccodoriginal: TWideStringField
      FieldName = 'dsccodoriginal'
      Size = 25
    end
    object ADOProdutosdsccodfabricante: TWideStringField
      FieldName = 'dsccodfabricante'
      Size = 15
    end
    object ADOProdutosdscgarantia: TWideStringField
      FieldName = 'dscgarantia'
    end
    object ADOProdutossubstituicao: TFloatField
      FieldName = 'substituicao'
    end
    object ADOProdutosiva: TFloatField
      FieldName = 'iva'
    end
    object ADOProdutospctcomissao: TFloatField
      FieldName = 'pctcomissao'
    end
    object ADOProdutoscstpiscofins: TWideStringField
      FieldName = 'cstpiscofins'
      Size = 3
    end
    object ADOProdutoscfop: TIntegerField
      FieldName = 'cfop'
    end
    object ADOProdutosredbc: TFloatField
      FieldName = 'redbc'
    end
    object ADOProdutosflnestoque: TWordField
      FieldName = 'flnestoque'
    end
    object ADOProdutoscstcofins: TWideStringField
      FieldName = 'cstcofins'
      Size = 3
    end
    object ADOProdutoscstipi: TWideStringField
      FieldName = 'cstipi'
      Size = 3
    end
    object ADOProdutosredbcicmsst: TFloatField
      FieldName = 'redbcicmsst'
    end
    object ADOProdutoscsosn: TWideStringField
      FieldName = 'csosn'
      Size = 4
    end
    object ADOProdutoscodtipoitem: TWideStringField
      FieldName = 'codtipoitem'
      Size = 2
    end
    object ADOProdutoscodcstorigem: TWideStringField
      FieldName = 'codcstorigem'
      Size = 1
    end
    object ADOProdutosflinativo: TWordField
      FieldName = 'flinativo'
    end
    object ADOProdutoscodprodutosimp: TIntegerField
      FieldName = 'codprodutosimp'
    end
    object ADOProdutosdsccodif: TWideStringField
      FieldName = 'dsccodif'
      Size = 21
    end
  end
  object ADOLocal: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbprodutolocal')
    Left = 440
    Top = 288
    object ADOLocalcodprodutolocal: TSmallintField
      FieldName = 'codprodutolocal'
    end
    object ADOLocaldescricao: TWideStringField
      FieldName = 'descricao'
      Size = 50
    end
    object ADOLocalid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOLocalcodusuario: TSmallintField
      FieldName = 'codusuario'
    end
    object ADOLocaltime_stamp: TWideStringField
      FieldName = 'time_stamp'
      Size = 14
    end
  end
  object ADOgrupo: TADOTable
    Connection = ADOCon
    CursorType = ctStatic
    TableName = 'tbprodutogrupo'
    Left = 440
    Top = 240
    object ADOgrupocodprodutogrupo: TIntegerField
      FieldName = 'codprodutogrupo'
    end
    object ADOgrupodescricao: TWideStringField
      FieldName = 'descricao'
      Size = 40
    end
    object ADOgrupoid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOgrupocodusuario: TSmallintField
      FieldName = 'codusuario'
    end
    object ADOgrupotime_stamp: TWideStringField
      FieldName = 'time_stamp'
      Size = 14
    end
    object ADOgrupocodcf: TSmallintField
      FieldName = 'codcf'
    end
  end
  object ADOEstoque: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM TBESTOQUE')
    Left = 440
    Top = 336
    object ADOEstoquecodproduto: TFloatField
      FieldName = 'codproduto'
    end
    object ADOEstoquecodempresa: TSmallintField
      FieldName = 'codempresa'
    end
    object ADOEstoqueqtdeatual: TFloatField
      FieldName = 'qtdeatual'
    end
    object ADOEstoqueqtdeanterior: TFloatField
      FieldName = 'qtdeanterior'
    end
    object ADOEstoquecustoanterior: TFloatField
      FieldName = 'custoanterior'
    end
    object ADOEstoquecustomedio: TFloatField
      FieldName = 'customedio'
    end
    object ADOEstoqueatualizacao: TDateTimeField
      FieldName = 'atualizacao'
    end
    object ADOEstoqueid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOEstoquecodusuario: TSmallintField
      FieldName = 'codusuario'
    end
    object ADOEstoquetime_stamp: TWideStringField
      FieldName = 'time_stamp'
      Size = 14
    end
  end
  object ADOCliente: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbcliente')
    Left = 389
    Top = 285
    object ADOClientecodcli: TSmallintField
      FieldName = 'codcli'
    end
    object ADOClientecodtipo: TWordField
      FieldName = 'codtipo'
    end
    object ADOClientedtcadastro: TDateTimeField
      FieldName = 'dtcadastro'
    end
    object ADOClienteramo: TWideStringField
      FieldName = 'ramo'
    end
    object ADOClientenome: TWideStringField
      FieldName = 'nome'
      Size = 70
    end
    object ADOClienteendereco: TWideStringField
      FieldName = 'endereco'
      Size = 100
    end
    object ADOClientecomplemento: TWideStringField
      FieldName = 'complemento'
      Size = 50
    end
    object ADOClientebairro: TWideStringField
      FieldName = 'bairro'
      Size = 30
    end
    object ADOClientecep: TWideStringField
      FieldName = 'cep'
      Size = 8
    end
    object ADOClientecidade: TWideStringField
      FieldName = 'cidade'
      Size = 30
    end
    object ADOClienteuf: TWideStringField
      FieldName = 'uf'
      Size = 2
    end
    object ADOClientetelefone: TWideStringField
      FieldName = 'telefone'
      Size = 10
    end
    object ADOClienteramal: TIntegerField
      FieldName = 'ramal'
    end
    object ADOClientefax: TWideStringField
      FieldName = 'fax'
      Size = 10
    end
    object ADOClientecnpj: TWideStringField
      FieldName = 'cnpj'
      Size = 14
    end
    object ADOClienteie: TWideStringField
      FieldName = 'ie'
      Size = 14
    end
    object ADOClienteobs: TWideMemoField
      FieldName = 'obs'
      BlobType = ftWideMemo
    end
    object ADOClienteemail: TWideStringField
      FieldName = 'email'
      Size = 60
    end
    object ADOClienteid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOClientecodusuario: TSmallintField
      FieldName = 'codusuario'
    end
    object ADOClientetime_stamp: TWideStringField
      FieldName = 'time_stamp'
      Size = 14
    end
    object ADOClientetrayidcliente: TIntegerField
      FieldName = 'trayidcliente'
    end
    object ADOClientecodmovfintipo: TIntegerField
      FieldName = 'codmovfintipo'
    end
    object ADOClientedtnascto: TDateTimeField
      FieldName = 'dtnascto'
    end
    object ADOClientesite: TWideStringField
      FieldName = 'site'
      Size = 100
    end
    object ADOClienteemailcobranca: TWideStringField
      FieldName = 'emailcobranca'
      Size = 50
    end
    object ADOClientenomefantasia: TWideStringField
      FieldName = 'nomefantasia'
      Size = 60
    end
    object ADOClientecodcond: TSmallintField
      FieldName = 'codcond'
    end
    object ADOClientecodfun: TSmallintField
      FieldName = 'codfun'
    end
    object ADOClientediavencto: TWordField
      FieldName = 'diavencto'
    end
    object ADOClientecelular: TWideStringField
      FieldName = 'celular'
      Size = 11
    end
    object ADOClienteenderecocobranca: TWideStringField
      FieldName = 'enderecocobranca'
      Size = 100
    end
    object ADOClientecomplementocobranca: TWideStringField
      FieldName = 'complementocobranca'
      Size = 50
    end
    object ADOClientebairrocobranca: TWideStringField
      FieldName = 'bairrocobranca'
      Size = 30
    end
    object ADOClientecepcobranca: TWideStringField
      FieldName = 'cepcobranca'
      Size = 8
    end
    object ADOClientecidadecobranca: TWideStringField
      FieldName = 'cidadecobranca'
      Size = 30
    end
    object ADOClienteufcobranca: TWideStringField
      FieldName = 'ufcobranca'
      Size = 2
    end
    object ADOClienteenderecoentrega: TWideStringField
      FieldName = 'enderecoentrega'
      Size = 100
    end
    object ADOClientecomplementoentrega: TWideStringField
      FieldName = 'complementoentrega'
      Size = 50
    end
    object ADOClientebairroentrega: TWideStringField
      FieldName = 'bairroentrega'
      Size = 30
    end
    object ADOClientecepentrega: TWideStringField
      FieldName = 'cepentrega'
      Size = 8
    end
    object ADOClientecidadeentrega: TWideStringField
      FieldName = 'cidadeentrega'
      Size = 30
    end
    object ADOClienteufentrega: TWideStringField
      FieldName = 'ufentrega'
      Size = 2
    end
    object ADOClientecodclientetipo: TSmallintField
      FieldName = 'codclientetipo'
    end
    object ADOClientecodtabelapreco: TSmallintField
      FieldName = 'codtabelapreco'
    end
    object ADOClientevlrlimite: TFloatField
      FieldName = 'vlrlimite'
    end
    object ADOClientevlrbonus: TFloatField
      FieldName = 'vlrbonus'
    end
    object ADOClientecodpais: TIntegerField
      FieldName = 'codpais'
    end
    object ADOClientedscanotacoes: TWideMemoField
      FieldName = 'dscanotacoes'
      BlobType = ftWideMemo
    end
    object ADOClientepctdescontomaximo: TFloatField
      FieldName = 'pctdescontomaximo'
    end
    object ADOClienteSUFRAMA: TWideStringField
      FieldName = 'SUFRAMA'
      Size = 9
    end
    object ADOClienteflbloqueado: TWordField
      FieldName = 'flbloqueado'
    end
    object ADOClientecodclientegrupo: TIntegerField
      FieldName = 'codclientegrupo'
    end
    object ADOClientemsn: TWideStringField
      FieldName = 'msn'
      Size = 60
    end
    object ADOClienteskype: TWideStringField
      FieldName = 'skype'
      Size = 60
    end
    object ADOClienteemailadicional: TWideStringField
      FieldName = 'emailadicional'
      Size = 60
    end
    object ADOClienteflinativo: TWordField
      FieldName = 'flinativo'
    end
  end
  object ADOFormaPag: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbcondpagto')
    Left = 384
    Top = 192
    object ADOFormaPagcodcond: TSmallintField
      FieldName = 'codcond'
    end
    object ADOFormaPagdescricao: TWideStringField
      FieldName = 'descricao'
      Size = 50
    end
    object ADOFormaPagcodconta: TSmallintField
      FieldName = 'codconta'
    end
    object ADOFormaPagparcelas: TWordField
      FieldName = 'parcelas'
    end
    object ADOFormaPagflpdv: TWordField
      FieldName = 'flpdv'
    end
    object ADOFormaPagpctacrescimo: TFloatField
      FieldName = 'pctacrescimo'
    end
    object ADOFormaPagid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOFormaPagcodusuario: TSmallintField
      FieldName = 'codusuario'
    end
    object ADOFormaPagtime_stamp: TWideStringField
      FieldName = 'time_stamp'
      Size = 14
    end
    object ADOFormaPagcodmovfintipo: TIntegerField
      FieldName = 'codmovfintipo'
    end
    object ADOFormaPagflcompra: TWordField
      FieldName = 'flcompra'
    end
    object ADOFormaPagflvenda: TWordField
      FieldName = 'flvenda'
    end
    object ADOFormaPagfldatacomercial: TWordField
      FieldName = 'fldatacomercial'
    end
    object ADOFormaPagvlrtaxaadm: TFloatField
      FieldName = 'vlrtaxaadm'
    end
  end
  object ADONFent: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbnotafiscal')
    Left = 260
    Top = 192
    object ADONFentcodnota: TIntegerField
      FieldName = 'codnota'
    end
    object ADONFentnotafiscal: TIntegerField
      FieldName = 'notafiscal'
    end
    object ADONFentcodempresa: TSmallintField
      FieldName = 'codempresa'
    end
    object ADONFentcodcompra: TIntegerField
      FieldName = 'codcompra'
    end
    object ADONFentcodforn: TSmallintField
      FieldName = 'codforn'
    end
    object ADONFentdataentrada: TDateTimeField
      FieldName = 'dataentrada'
    end
    object ADONFentcfop: TIntegerField
      FieldName = 'cfop'
    end
    object ADONFentcodcond: TSmallintField
      FieldName = 'codcond'
    end
    object ADONFentobservacoes: TWideMemoField
      FieldName = 'observacoes'
      BlobType = ftWideMemo
    end
    object ADONFentid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADONFentcodusuario: TSmallintField
      FieldName = 'codusuario'
    end
    object ADONFenttime_stamp: TWideStringField
      FieldName = 'time_stamp'
      Size = 14
    end
    object ADONFentbaseicms: TFloatField
      FieldName = 'baseicms'
    end
    object ADONFentvaloricms: TFloatField
      FieldName = 'valoricms'
    end
    object ADONFentvaloripi: TFloatField
      FieldName = 'valoripi'
    end
    object ADONFentbaseicmssub: TFloatField
      FieldName = 'baseicmssub'
    end
    object ADONFentvaloricmssub: TFloatField
      FieldName = 'valoricmssub'
    end
    object ADONFentvalorproduto: TFloatField
      FieldName = 'valorproduto'
    end
    object ADONFentvalorfrete: TFloatField
      FieldName = 'valorfrete'
    end
    object ADONFentvalorseguro: TFloatField
      FieldName = 'valorseguro'
    end
    object ADONFentoutrasdespesas: TFloatField
      FieldName = 'outrasdespesas'
    end
    object ADONFentvalortotal: TFloatField
      FieldName = 'valortotal'
    end
    object ADONFentquantidade: TIntegerField
      FieldName = 'quantidade'
    end
    object ADONFentespecie: TWideStringField
      FieldName = 'especie'
      Size = 13
    end
    object ADONFentmarca: TWideStringField
      FieldName = 'marca'
      Size = 10
    end
    object ADONFentnumero: TWideStringField
      FieldName = 'numero'
      Size = 12
    end
    object ADONFentpesobruto: TWideStringField
      FieldName = 'pesobruto'
      Size = 12
    end
    object ADONFentpesoliquido: TWideStringField
      FieldName = 'pesoliquido'
      Size = 12
    end
    object ADONFentserie: TIntegerField
      FieldName = 'serie'
    end
    object ADONFentidnfe: TWideStringField
      FieldName = 'idnfe'
      Size = 44
    end
    object ADONFentvlrdescontototal: TFloatField
      FieldName = 'vlrdescontototal'
    end
    object ADONFentcodtransportador: TSmallintField
      FieldName = 'codtransportador'
    end
    object ADONFentvalorpis: TFloatField
      FieldName = 'valorpis'
    end
    object ADONFentvalorcofins: TFloatField
      FieldName = 'valorcofins'
    end
    object ADONFentfrete: TWordField
      FieldName = 'frete'
    end
  end
  object ADOFunc: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbfuncionario')
    Left = 381
    Top = 333
    object ADOFunccodfun: TSmallintField
      FieldName = 'codfun'
    end
    object ADOFuncdtcadastro: TDateTimeField
      FieldName = 'dtcadastro'
    end
    object ADOFuncnome: TWideStringField
      FieldName = 'nome'
      Size = 50
    end
    object ADOFunccodcentrocusto: TSmallintField
      FieldName = 'codcentrocusto'
    end
    object ADOFunccodcargo: TSmallintField
      FieldName = 'codcargo'
    end
    object ADOFunccodcontratotipo: TWordField
      FieldName = 'codcontratotipo'
    end
    object ADOFunccpf: TWideStringField
      FieldName = 'cpf'
      Size = 11
    end
    object ADOFuncrg: TWideStringField
      FieldName = 'rg'
      Size = 15
    end
    object ADOFuncendereco: TWideStringField
      FieldName = 'endereco'
      Size = 100
    end
    object ADOFuncbairro: TWideStringField
      FieldName = 'bairro'
      Size = 30
    end
    object ADOFunccep: TWideStringField
      FieldName = 'cep'
      Size = 8
    end
    object ADOFunccidade: TWideStringField
      FieldName = 'cidade'
      Size = 30
    end
    object ADOFuncuf: TWideStringField
      FieldName = 'uf'
      Size = 2
    end
    object ADOFunctelefone: TWideStringField
      FieldName = 'telefone'
      Size = 10
    end
    object ADOFunccelular: TWideStringField
      FieldName = 'celular'
      Size = 11
    end
    object ADOFuncemail: TWideStringField
      FieldName = 'email'
      Size = 60
    end
    object ADOFuncremuneracao: TFloatField
      FieldName = 'remuneracao'
    end
    object ADOFuncpctcomissao: TFloatField
      FieldName = 'pctcomissao'
    end
    object ADOFunchoraextra: TFloatField
      FieldName = 'horaextra'
    end
    object ADOFunchorario1: TWideStringField
      FieldName = 'horario1'
      Size = 4
    end
    object ADOFunchorario2: TWideStringField
      FieldName = 'horario2'
      Size = 4
    end
    object ADOFunccodbanco: TSmallintField
      FieldName = 'codbanco'
    end
    object ADOFuncagencia: TSmallintField
      FieldName = 'agencia'
    end
    object ADOFuncconta: TWideStringField
      FieldName = 'conta'
      Size = 15
    end
    object ADOFuncnickname: TWideStringField
      FieldName = 'nickname'
    end
    object ADOFuncsenha: TWideStringField
      FieldName = 'senha'
    end
    object ADOFuncempresa: TWideStringField
      FieldName = 'empresa'
      Size = 40
    end
    object ADOFuncadmissao: TDateTimeField
      FieldName = 'admissao'
    end
    object ADOFuncid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOFunccodusuario: TSmallintField
      FieldName = 'codusuario'
    end
    object ADOFunctime_stamp: TWideStringField
      FieldName = 'time_stamp'
      Size = 14
    end
    object ADOFuncobs: TWideStringField
      FieldName = 'obs'
      Size = 255
    end
    object ADOFuncflinativo: TWordField
      FieldName = 'flinativo'
    end
    object ADOFuncflcompras: TWordField
      FieldName = 'flcompras'
    end
    object ADOFuncflvendas: TWordField
      FieldName = 'flvendas'
    end
    object ADOFuncflos: TWordField
      FieldName = 'flos'
    end
    object ADOFuncfladmin: TWordField
      FieldName = 'fladmin'
    end
  end
  object ADOFornec: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbfornecedor')
    Left = 320
    Top = 192
    object ADOForneccodforn: TSmallintField
      FieldName = 'codforn'
    end
    object ADOForneccodtipo: TWordField
      FieldName = 'codtipo'
    end
    object ADOFornecdtcadastro: TDateTimeField
      FieldName = 'dtcadastro'
    end
    object ADOFornecramo: TWideStringField
      FieldName = 'ramo'
      Size = 40
    end
    object ADOFornecnome: TWideStringField
      FieldName = 'nome'
      Size = 70
    end
    object ADOFornecendereco: TWideStringField
      FieldName = 'endereco'
      Size = 100
    end
    object ADOFornecbairro: TWideStringField
      FieldName = 'bairro'
      Size = 30
    end
    object ADOForneccep: TWideStringField
      FieldName = 'cep'
      Size = 8
    end
    object ADOForneccidade: TWideStringField
      FieldName = 'cidade'
      Size = 30
    end
    object ADOFornecuf: TWideStringField
      FieldName = 'uf'
      Size = 2
    end
    object ADOFornectelefone: TWideStringField
      FieldName = 'telefone'
      Size = 10
    end
    object ADOFornecramal: TFloatField
      FieldName = 'ramal'
    end
    object ADOFornecfax: TWideStringField
      FieldName = 'fax'
      Size = 10
    end
    object ADOForneccnpj: TWideStringField
      FieldName = 'cnpj'
      Size = 14
    end
    object ADOFornecie: TWideStringField
      FieldName = 'ie'
      Size = 14
    end
    object ADOFornecemail: TWideStringField
      FieldName = 'email'
      Size = 60
    end
    object ADOFornecobs: TWideStringField
      FieldName = 'obs'
      Size = 100
    end
    object ADOFornecid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOForneccodusuario: TSmallintField
      FieldName = 'codusuario'
    end
    object ADOFornectime_stamp: TWideStringField
      FieldName = 'time_stamp'
      Size = 14
    end
    object ADOForneccodmovfintipo: TIntegerField
      FieldName = 'codmovfintipo'
    end
    object ADOFornecsite: TWideStringField
      FieldName = 'site'
      Size = 100
    end
    object ADOFornecnomefantasia: TWideStringField
      FieldName = 'nomefantasia'
      Size = 60
    end
    object ADOFornecdscanotacoes: TWideMemoField
      FieldName = 'dscanotacoes'
      BlobType = ftWideMemo
    end
    object ADOForneccelular: TWideStringField
      FieldName = 'celular'
      Size = 11
    end
    object ADOForneccodcond: TSmallintField
      FieldName = 'codcond'
    end
    object ADOForneccodcrt: TSmallintField
      FieldName = 'codcrt'
    end
    object ADOForneccomplemento: TWideStringField
      FieldName = 'complemento'
      Size = 50
    end
    object ADOForneccodfun: TSmallintField
      FieldName = 'codfun'
    end
    object ADOForneccodpais: TIntegerField
      FieldName = 'codpais'
    end
    object ADOFornecmsn: TWideStringField
      FieldName = 'msn'
      Size = 60
    end
    object ADOFornecskype: TWideStringField
      FieldName = 'skype'
      Size = 60
    end
    object ADOFornecemailadicional: TWideStringField
      FieldName = 'emailadicional'
      Size = 60
    end
    object ADOFornecflinativo: TWordField
      FieldName = 'flinativo'
    end
    object ADOFornecsuframa: TWideStringField
      FieldName = 'suframa'
      Size = 9
    end
  end
  object ADOSaida: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbnf')
    Left = 268
    Top = 240
    object ADOSaidacodnf: TIntegerField
      FieldName = 'codnf'
    end
    object ADOSaidacodvenda: TIntegerField
      FieldName = 'codvenda'
    end
    object ADOSaidacodorcamento: TIntegerField
      FieldName = 'codorcamento'
    end
    object ADOSaidacodos: TIntegerField
      FieldName = 'codos'
    end
    object ADOSaidacodempresa: TSmallintField
      FieldName = 'codempresa'
    end
    object ADOSaidacodvendatipo: TWordField
      FieldName = 'codvendatipo'
    end
    object ADOSaidacodcli: TSmallintField
      FieldName = 'codcli'
    end
    object ADOSaidacodfun: TSmallintField
      FieldName = 'codfun'
    end
    object ADOSaidacodcond: TSmallintField
      FieldName = 'codcond'
    end
    object ADOSaidacodstatus: TWordField
      FieldName = 'codstatus'
    end
    object ADOSaidadata: TDateTimeField
      FieldName = 'data'
    end
    object ADOSaidacfop: TIntegerField
      FieldName = 'cfop'
    end
    object ADOSaidacfopcompl: TIntegerField
      FieldName = 'cfopcompl'
    end
    object ADOSaidacodcondentrega: TWordField
      FieldName = 'codcondentrega'
    end
    object ADOSaidaiest: TWideStringField
      FieldName = 'iest'
      Size = 14
    end
    object ADOSaidadatasaida: TDateTimeField
      FieldName = 'datasaida'
    end
    object ADOSaidahora: TWideStringField
      FieldName = 'hora'
      Size = 4
    end
    object ADOSaidabaseicms: TFloatField
      FieldName = 'baseicms'
    end
    object ADOSaidavaloricms: TFloatField
      FieldName = 'valoricms'
    end
    object ADOSaidavaloripi: TFloatField
      FieldName = 'valoripi'
    end
    object ADOSaidabaseicmssub: TFloatField
      FieldName = 'baseicmssub'
    end
    object ADOSaidavaloricmssub: TFloatField
      FieldName = 'valoricmssub'
    end
    object ADOSaidavalorfrete: TFloatField
      FieldName = 'valorfrete'
    end
    object ADOSaidavalorseguro: TFloatField
      FieldName = 'valorseguro'
    end
    object ADOSaidaoutrasdespesas: TFloatField
      FieldName = 'outrasdespesas'
    end
    object ADOSaidavalortotal: TFloatField
      FieldName = 'valortotal'
    end
    object ADOSaidacodtransportador: TSmallintField
      FieldName = 'codtransportador'
    end
    object ADOSaidafrete: TWordField
      FieldName = 'frete'
    end
    object ADOSaidacodveiculo: TIntegerField
      FieldName = 'codveiculo'
    end
    object ADOSaidaquantidade: TIntegerField
      FieldName = 'quantidade'
    end
    object ADOSaidaespecie: TWideStringField
      FieldName = 'especie'
      Size = 13
    end
    object ADOSaidamarca: TWideStringField
      FieldName = 'marca'
      Size = 10
    end
    object ADOSaidanumero: TWideStringField
      FieldName = 'numero'
      Size = 12
    end
    object ADOSaidapesobruto: TWideStringField
      FieldName = 'pesobruto'
      Size = 12
    end
    object ADOSaidapesoliquido: TWideStringField
      FieldName = 'pesoliquido'
      Size = 12
    end
    object ADOSaidaobservacoes: TWideMemoField
      FieldName = 'observacoes'
      BlobType = ftWideMemo
    end
    object ADOSaidacoddescontotipo: TSmallintField
      FieldName = 'coddescontotipo'
    end
    object ADOSaidavlrdesconto: TFloatField
      FieldName = 'vlrdesconto'
    end
    object ADOSaidadataentrega: TDateTimeField
      FieldName = 'dataentrega'
    end
    object ADOSaidaid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOSaidacodusuario: TSmallintField
      FieldName = 'codusuario'
    end
    object ADOSaidatime_stamp: TWideStringField
      FieldName = 'time_stamp'
      Size = 14
    end
    object ADOSaidaflcomissao: TWordField
      FieldName = 'flcomissao'
    end
    object ADOSaidaflnf: TWordField
      FieldName = 'flnf'
    end
    object ADOSaidadtnf: TDateTimeField
      FieldName = 'dtnf'
    end
    object ADOSaidaflnfe: TWordField
      FieldName = 'flnfe'
    end
    object ADOSaidaflcomissaoos: TWordField
      FieldName = 'flcomissaoos'
    end
    object ADOSaidaidnfe: TWideStringField
      FieldName = 'idnfe'
      Size = 44
    end
    object ADOSaidanotafiscal: TIntegerField
      FieldName = 'notafiscal'
    end
    object ADOSaidaflestoque: TWordField
      FieldName = 'flestoque'
    end
    object ADOSaidaflfinanceiro: TWordField
      FieldName = 'flfinanceiro'
    end
    object ADOSaidaserie: TIntegerField
      FieldName = 'serie'
    end
    object ADOSaidacodnfref: TIntegerField
      FieldName = 'codnfref'
    end
    object ADOSaidanfefinalidade: TWordField
      FieldName = 'nfefinalidade'
    end
    object ADOSaidavalorpis: TFloatField
      FieldName = 'valorpis'
    end
    object ADOSaidavalorcofins: TFloatField
      FieldName = 'valorcofins'
    end
    object ADOSaidacodcontato: TSmallintField
      FieldName = 'codcontato'
    end
    object ADOSaidavalorii: TFloatField
      FieldName = 'valorii'
    end
    object ADOSaidadcsinfadfisco: TWideMemoField
      FieldName = 'dcsinfadfisco'
      BlobType = ftWideMemo
    end
    object ADOSaidaufembarque: TWideStringField
      FieldName = 'ufembarque'
      Size = 2
    end
    object ADOSaidadsclocalembarque: TWideStringField
      FieldName = 'dsclocalembarque'
      Size = 60
    end
    object ADOSaidavlrdescontototal: TFloatField
      FieldName = 'vlrdescontototal'
    end
    object ADOSaidavlraproximp: TFloatField
      FieldName = 'vlraproximp'
    end
  end
  object ADOVendedor: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbfuncionario')
    Left = 324
    Top = 240
    object ADOVendedorcodfun: TSmallintField
      FieldName = 'codfun'
    end
    object ADOVendedornome: TWideStringField
      FieldName = 'nome'
      Size = 50
    end
  end
  object ADOItemSaida: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbnfitem')
    Left = 212
    Top = 240
    object ADOItemSaidacodnf: TIntegerField
      FieldName = 'codnf'
    end
    object ADOItemSaidacodproduto: TFloatField
      FieldName = 'codproduto'
    end
    object ADOItemSaidaquantidade: TFloatField
      FieldName = 'quantidade'
    end
    object ADOItemSaidapcounitario: TFloatField
      FieldName = 'pcounitario'
    end
    object ADOItemSaidapcocusto: TFloatField
      FieldName = 'pcocusto'
    end
    object ADOItemSaidaicms: TFloatField
      FieldName = 'icms'
    end
    object ADOItemSaidaipi: TFloatField
      FieldName = 'ipi'
    end
    object ADOItemSaidacoddescontotipo: TSmallintField
      FieldName = 'coddescontotipo'
    end
    object ADOItemSaidavlrdesconto: TFloatField
      FieldName = 'vlrdesconto'
    end
    object ADOItemSaidadtentrega: TDateTimeField
      FieldName = 'dtentrega'
    end
    object ADOItemSaidaid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOItemSaidacodusuario: TSmallintField
      FieldName = 'codusuario'
    end
    object ADOItemSaidatime_stamp: TWideStringField
      FieldName = 'time_stamp'
      Size = 14
    end
    object ADOItemSaidasubstituicao: TFloatField
      FieldName = 'substituicao'
    end
    object ADOItemSaidadsccodconcorrente: TWideStringField
      FieldName = 'dsccodconcorrente'
    end
    object ADOItemSaidaobservacoes: TWideStringField
      FieldName = 'observacoes'
      Size = 255
    end
    object ADOItemSaidaflentrega: TWordField
      FieldName = 'flentrega'
    end
    object ADOItemSaidacfop: TIntegerField
      FieldName = 'cfop'
    end
    object ADOItemSaidacst: TWideStringField
      FieldName = 'cst'
      Size = 3
    end
    object ADOItemSaidavlrtotal: TFloatField
      FieldName = 'vlrtotal'
    end
    object ADOItemSaidabaseicms: TFloatField
      FieldName = 'baseicms'
    end
    object ADOItemSaidavlricms: TFloatField
      FieldName = 'vlricms'
    end
    object ADOItemSaidavlripi: TFloatField
      FieldName = 'vlripi'
    end
    object ADOItemSaidabaseicmsst: TFloatField
      FieldName = 'baseicmsst'
    end
    object ADOItemSaidavlricmsst: TFloatField
      FieldName = 'vlricmsst'
    end
    object ADOItemSaidabasepis: TFloatField
      FieldName = 'basepis'
    end
    object ADOItemSaidavlrpis: TFloatField
      FieldName = 'vlrpis'
    end
    object ADOItemSaidabasecofins: TFloatField
      FieldName = 'basecofins'
    end
    object ADOItemSaidavlrcofins: TFloatField
      FieldName = 'vlrcofins'
    end
    object ADOItemSaidadi_nro: TWideStringField
      FieldName = 'di_nro'
      Size = 10
    end
    object ADOItemSaidadi_dataregistro: TDateTimeField
      FieldName = 'di_dataregistro'
    end
    object ADOItemSaidadi_localdesemb: TWideStringField
      FieldName = 'di_localdesemb'
      Size = 60
    end
    object ADOItemSaidadi_ufdesemb: TWideStringField
      FieldName = 'di_ufdesemb'
      Size = 2
    end
    object ADOItemSaidadi_datadesemb: TDateTimeField
      FieldName = 'di_datadesemb'
    end
    object ADOItemSaidadi_codexportador: TWideStringField
      FieldName = 'di_codexportador'
      Size = 60
    end
    object ADOItemSaidadi_codfabricante: TWideStringField
      FieldName = 'di_codfabricante'
      Size = 60
    end
    object ADOItemSaidadi_vlrdesconto: TFloatField
      FieldName = 'di_vlrdesconto'
    end
    object ADOItemSaidabaseicmsstret: TFloatField
      FieldName = 'baseicmsstret'
    end
    object ADOItemSaidavlricmsstret: TFloatField
      FieldName = 'vlricmsstret'
    end
    object ADOItemSaidavlriibc: TFloatField
      FieldName = 'vlriibc'
    end
    object ADOItemSaidavlriidespadu: TFloatField
      FieldName = 'vlriidespadu'
    end
    object ADOItemSaidavlrii: TFloatField
      FieldName = 'vlrii'
    end
    object ADOItemSaidavlriiiof: TFloatField
      FieldName = 'vlriiiof'
    end
    object ADOItemSaidacsosn: TWideStringField
      FieldName = 'csosn'
      Size = 4
    end
    object ADOItemSaidavlrpisst: TFloatField
      FieldName = 'vlrpisst'
    end
    object ADOItemSaidavlrcofinsst: TFloatField
      FieldName = 'vlrcofinsst'
    end
    object ADOItemSaidacstipi: TWideStringField
      FieldName = 'cstipi'
      Size = 3
    end
    object ADOItemSaidacstpis: TWideStringField
      FieldName = 'cstpis'
      Size = 3
    end
    object ADOItemSaidacstcofins: TWideStringField
      FieldName = 'cstcofins'
      Size = 3
    end
    object ADOItemSaidavlraproximpitem: TFloatField
      FieldName = 'vlraproximpitem'
    end
  end
  object ADOItemEnt: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbnotafiscalitem')
    Left = 212
    Top = 192
    object ADOItemEntcodnota: TIntegerField
      FieldName = 'codnota'
    end
    object ADOItemEntcodproduto: TFloatField
      FieldName = 'codproduto'
    end
    object ADOItemEntquantidade: TFloatField
      FieldName = 'quantidade'
    end
    object ADOItemEntpcounitario: TFloatField
      FieldName = 'pcounitario'
    end
    object ADOItemEnticms: TFloatField
      FieldName = 'icms'
    end
    object ADOItemEntipi: TFloatField
      FieldName = 'ipi'
    end
    object ADOItemEntid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOItemEntcodusuario: TSmallintField
      FieldName = 'codusuario'
    end
    object ADOItemEnttime_stamp: TWideStringField
      FieldName = 'time_stamp'
      Size = 14
    end
    object ADOItemEntsubstituicao: TFloatField
      FieldName = 'substituicao'
    end
    object ADOItemEntcfop: TIntegerField
      FieldName = 'cfop'
    end
    object ADOItemEntcst: TWideStringField
      FieldName = 'cst'
      Size = 3
    end
    object ADOItemEntvlrtotal: TFloatField
      FieldName = 'vlrtotal'
    end
    object ADOItemEntbaseicms: TFloatField
      FieldName = 'baseicms'
    end
    object ADOItemEntvlricms: TFloatField
      FieldName = 'vlricms'
    end
    object ADOItemEntvlripi: TFloatField
      FieldName = 'vlripi'
    end
    object ADOItemEntbaseicmsst: TFloatField
      FieldName = 'baseicmsst'
    end
    object ADOItemEntvlricmsst: TFloatField
      FieldName = 'vlricmsst'
    end
    object ADOItemEntcsosn: TWideStringField
      FieldName = 'csosn'
      Size = 4
    end
  end
  object ADOPedido: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbvenda')
    Left = 268
    Top = 288
    object ADOPedidocodvenda: TIntegerField
      FieldName = 'codvenda'
    end
    object ADOPedidocodorcamento: TIntegerField
      FieldName = 'codorcamento'
    end
    object ADOPedidocodos: TIntegerField
      FieldName = 'codos'
    end
    object ADOPedidocodempresa: TSmallintField
      FieldName = 'codempresa'
    end
    object ADOPedidocodvendatipo: TWordField
      FieldName = 'codvendatipo'
    end
    object ADOPedidocodcli: TSmallintField
      FieldName = 'codcli'
    end
    object ADOPedidocodfun: TSmallintField
      FieldName = 'codfun'
    end
    object ADOPedidocodcond: TSmallintField
      FieldName = 'codcond'
    end
    object ADOPedidocodstatus: TWordField
      FieldName = 'codstatus'
    end
    object ADOPedidodata: TDateTimeField
      FieldName = 'data'
    end
    object ADOPedidocfop: TIntegerField
      FieldName = 'cfop'
    end
    object ADOPedidocfopcompl: TIntegerField
      FieldName = 'cfopcompl'
    end
    object ADOPedidocodcondentrega: TWordField
      FieldName = 'codcondentrega'
    end
    object ADOPedidoiest: TWideStringField
      FieldName = 'iest'
      Size = 14
    end
    object ADOPedidodatasaida: TDateTimeField
      FieldName = 'datasaida'
    end
    object ADOPedidohora: TWideStringField
      FieldName = 'hora'
      Size = 4
    end
    object ADOPedidobaseicms: TFloatField
      FieldName = 'baseicms'
    end
    object ADOPedidovaloricms: TFloatField
      FieldName = 'valoricms'
    end
    object ADOPedidovaloripi: TFloatField
      FieldName = 'valoripi'
    end
    object ADOPedidobaseicmssub: TFloatField
      FieldName = 'baseicmssub'
    end
    object ADOPedidovaloricmssub: TFloatField
      FieldName = 'valoricmssub'
    end
    object ADOPedidovalorfrete: TFloatField
      FieldName = 'valorfrete'
    end
    object ADOPedidovalorseguro: TFloatField
      FieldName = 'valorseguro'
    end
    object ADOPedidooutrasdespesas: TFloatField
      FieldName = 'outrasdespesas'
    end
    object ADOPedidovalortotal: TFloatField
      FieldName = 'valortotal'
    end
    object ADOPedidocodtransportador: TSmallintField
      FieldName = 'codtransportador'
    end
    object ADOPedidofrete: TWordField
      FieldName = 'frete'
    end
    object ADOPedidocodveiculo: TIntegerField
      FieldName = 'codveiculo'
    end
    object ADOPedidoquantidade: TIntegerField
      FieldName = 'quantidade'
    end
    object ADOPedidoespecie: TWideStringField
      FieldName = 'especie'
      Size = 13
    end
    object ADOPedidomarca: TWideStringField
      FieldName = 'marca'
      Size = 10
    end
    object ADOPedidonumero: TWideStringField
      FieldName = 'numero'
      Size = 12
    end
    object ADOPedidopesobruto: TWideStringField
      FieldName = 'pesobruto'
      Size = 12
    end
    object ADOPedidopesoliquido: TWideStringField
      FieldName = 'pesoliquido'
      Size = 12
    end
    object ADOPedidoobservacoes: TWideMemoField
      FieldName = 'observacoes'
      BlobType = ftWideMemo
    end
    object ADOPedidocoddescontotipo: TSmallintField
      FieldName = 'coddescontotipo'
    end
    object ADOPedidovlrdesconto: TFloatField
      FieldName = 'vlrdesconto'
    end
    object ADOPedidodataentrega: TDateTimeField
      FieldName = 'dataentrega'
    end
    object ADOPedidoid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOPedidocodusuario: TSmallintField
      FieldName = 'codusuario'
    end
    object ADOPedidotime_stamp: TWideStringField
      FieldName = 'time_stamp'
      Size = 14
    end
    object ADOPedidoflcomissao: TWordField
      FieldName = 'flcomissao'
    end
    object ADOPedidoflnf: TWordField
      FieldName = 'flnf'
    end
    object ADOPedidodtnf: TDateTimeField
      FieldName = 'dtnf'
    end
    object ADOPedidoflnfe: TWordField
      FieldName = 'flnfe'
    end
    object ADOPedidoflcomissaoos: TWordField
      FieldName = 'flcomissaoos'
    end
    object ADOPedidoidnfe: TWideStringField
      FieldName = 'idnfe'
      Size = 44
    end
    object ADOPedidonotafiscal: TIntegerField
      FieldName = 'notafiscal'
    end
    object ADOPedidoflestoque: TWordField
      FieldName = 'flestoque'
    end
    object ADOPedidoflfinanceiro: TWordField
      FieldName = 'flfinanceiro'
    end
    object ADOPedidoserie: TIntegerField
      FieldName = 'serie'
    end
    object ADOPedidocodvendaref: TIntegerField
      FieldName = 'codvendaref'
    end
    object ADOPedidonfefinalidade: TWordField
      FieldName = 'nfefinalidade'
    end
    object ADOPedidovalorpis: TFloatField
      FieldName = 'valorpis'
    end
    object ADOPedidovalorcofins: TFloatField
      FieldName = 'valorcofins'
    end
    object ADOPedidocodcontato: TSmallintField
      FieldName = 'codcontato'
    end
    object ADOPedidovalorii: TFloatField
      FieldName = 'valorii'
    end
    object ADOPedidodcsinfadfisco: TWideMemoField
      FieldName = 'dcsinfadfisco'
      BlobType = ftWideMemo
    end
    object ADOPedidoufembarque: TWideStringField
      FieldName = 'ufembarque'
      Size = 2
    end
    object ADOPedidodsclocalembarque: TWideStringField
      FieldName = 'dsclocalembarque'
      Size = 60
    end
    object ADOPedidovlrdescontototal: TFloatField
      FieldName = 'vlrdescontototal'
    end
    object ADOPedidovlraproximp: TFloatField
      FieldName = 'vlraproximp'
    end
  end
  object ADOItemPed: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbvendaitem')
    Left = 212
    Top = 288
    object ADOItemPedcodvenda: TIntegerField
      FieldName = 'codvenda'
    end
    object ADOItemPedcodproduto: TFloatField
      FieldName = 'codproduto'
    end
    object ADOItemPedquantidade: TFloatField
      FieldName = 'quantidade'
    end
    object ADOItemPedpcounitario: TFloatField
      FieldName = 'pcounitario'
    end
    object ADOItemPedpcocusto: TFloatField
      FieldName = 'pcocusto'
    end
    object ADOItemPedicms: TFloatField
      FieldName = 'icms'
    end
    object ADOItemPedipi: TFloatField
      FieldName = 'ipi'
    end
    object ADOItemPedcoddescontotipo: TSmallintField
      FieldName = 'coddescontotipo'
    end
    object ADOItemPedvlrdesconto: TFloatField
      FieldName = 'vlrdesconto'
    end
    object ADOItemPeddtentrega: TDateTimeField
      FieldName = 'dtentrega'
    end
    object ADOItemPedid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOItemPedcodusuario: TSmallintField
      FieldName = 'codusuario'
    end
    object ADOItemPedtime_stamp: TWideStringField
      FieldName = 'time_stamp'
      Size = 14
    end
    object ADOItemPedsubstituicao: TFloatField
      FieldName = 'substituicao'
    end
    object ADOItemPeddsccodconcorrente: TWideStringField
      FieldName = 'dsccodconcorrente'
    end
    object ADOItemPedobservacoes: TWideStringField
      FieldName = 'observacoes'
      Size = 255
    end
    object ADOItemPedflentrega: TWordField
      FieldName = 'flentrega'
    end
    object ADOItemPedcfop: TIntegerField
      FieldName = 'cfop'
    end
    object ADOItemPedcst: TWideStringField
      FieldName = 'cst'
      Size = 3
    end
    object ADOItemPedvlrtotal: TFloatField
      FieldName = 'vlrtotal'
    end
    object ADOItemPedbaseicms: TFloatField
      FieldName = 'baseicms'
    end
    object ADOItemPedvlricms: TFloatField
      FieldName = 'vlricms'
    end
    object ADOItemPedvlripi: TFloatField
      FieldName = 'vlripi'
    end
    object ADOItemPedbaseicmsst: TFloatField
      FieldName = 'baseicmsst'
    end
    object ADOItemPedvlricmsst: TFloatField
      FieldName = 'vlricmsst'
    end
    object ADOItemPedbasepis: TFloatField
      FieldName = 'basepis'
    end
    object ADOItemPedvlrpis: TFloatField
      FieldName = 'vlrpis'
    end
    object ADOItemPedbasecofins: TFloatField
      FieldName = 'basecofins'
    end
    object ADOItemPedvlrcofins: TFloatField
      FieldName = 'vlrcofins'
    end
    object ADOItemPeddi_nro: TWideStringField
      FieldName = 'di_nro'
      Size = 10
    end
    object ADOItemPeddi_dataregistro: TDateTimeField
      FieldName = 'di_dataregistro'
    end
    object ADOItemPeddi_localdesemb: TWideStringField
      FieldName = 'di_localdesemb'
      Size = 60
    end
    object ADOItemPeddi_ufdesemb: TWideStringField
      FieldName = 'di_ufdesemb'
      Size = 2
    end
    object ADOItemPeddi_datadesemb: TDateTimeField
      FieldName = 'di_datadesemb'
    end
    object ADOItemPeddi_codexportador: TWideStringField
      FieldName = 'di_codexportador'
      Size = 60
    end
    object ADOItemPeddi_codfabricante: TWideStringField
      FieldName = 'di_codfabricante'
      Size = 60
    end
    object ADOItemPeddi_vlrdesconto: TFloatField
      FieldName = 'di_vlrdesconto'
    end
    object ADOItemPedbaseicmsstret: TFloatField
      FieldName = 'baseicmsstret'
    end
    object ADOItemPedvlricmsstret: TFloatField
      FieldName = 'vlricmsstret'
    end
    object ADOItemPedvlriibc: TFloatField
      FieldName = 'vlriibc'
    end
    object ADOItemPedvlriidespadu: TFloatField
      FieldName = 'vlriidespadu'
    end
    object ADOItemPedvlrii: TFloatField
      FieldName = 'vlrii'
    end
    object ADOItemPedvlriiiof: TFloatField
      FieldName = 'vlriiiof'
    end
    object ADOItemPedcsosn: TWideStringField
      FieldName = 'csosn'
      Size = 4
    end
    object ADOItemPedvlrpisst: TFloatField
      FieldName = 'vlrpisst'
    end
    object ADOItemPedvlrcofinsst: TFloatField
      FieldName = 'vlrcofinsst'
    end
    object ADOItemPedcstipi: TWideStringField
      FieldName = 'cstipi'
      Size = 3
    end
    object ADOItemPedcstpis: TWideStringField
      FieldName = 'cstpis'
      Size = 3
    end
    object ADOItemPedcstcofins: TWideStringField
      FieldName = 'cstcofins'
      Size = 3
    end
    object ADOItemPedvlraproximpitem: TFloatField
      FieldName = 'vlraproximpitem'
    end
  end
  object ADOItemOrc: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tborcamentoitem')
    Left = 108
    Top = 192
    object ADOItemOrccodorcamento: TIntegerField
      FieldName = 'codorcamento'
    end
    object ADOItemOrccodproduto: TFloatField
      FieldName = 'codproduto'
    end
    object ADOItemOrcquantidade: TFloatField
      FieldName = 'quantidade'
    end
    object ADOItemOrcpcounitario: TFloatField
      FieldName = 'pcounitario'
    end
    object ADOItemOrcicms: TFloatField
      FieldName = 'icms'
    end
    object ADOItemOrcipi: TFloatField
      FieldName = 'ipi'
    end
    object ADOItemOrccoddescontotipo: TSmallintField
      FieldName = 'coddescontotipo'
    end
    object ADOItemOrcvlrdesconto: TFloatField
      FieldName = 'vlrdesconto'
    end
    object ADOItemOrcid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOItemOrccodusuario: TSmallintField
      FieldName = 'codusuario'
    end
    object ADOItemOrctime_stamp: TWideStringField
      FieldName = 'time_stamp'
      Size = 14
    end
    object ADOItemOrcsubstituicao: TFloatField
      FieldName = 'substituicao'
    end
    object ADOItemOrcdsccodconcorrente: TWideStringField
      FieldName = 'dsccodconcorrente'
    end
    object ADOItemOrcdtentrega: TDateTimeField
      FieldName = 'dtentrega'
    end
    object ADOItemOrcobservacoes: TWideStringField
      FieldName = 'observacoes'
      Size = 255
    end
    object ADOItemOrcpcocusto: TFloatField
      FieldName = 'pcocusto'
    end
    object ADOItemOrcbaseicms: TFloatField
      FieldName = 'baseicms'
    end
    object ADOItemOrcvlricms: TFloatField
      FieldName = 'vlricms'
    end
    object ADOItemOrcvlripi: TFloatField
      FieldName = 'vlripi'
    end
    object ADOItemOrcbaseicmsst: TFloatField
      FieldName = 'baseicmsst'
    end
    object ADOItemOrcvlricmsst: TFloatField
      FieldName = 'vlricmsst'
    end
    object ADOItemOrcvlrpis: TFloatField
      FieldName = 'vlrpis'
    end
    object ADOItemOrcvlrcofins: TFloatField
      FieldName = 'vlrcofins'
    end
    object ADOItemOrcvlrpisst: TFloatField
      FieldName = 'vlrpisst'
    end
    object ADOItemOrcvlrcofinsst: TFloatField
      FieldName = 'vlrcofinsst'
    end
    object ADOItemOrccsosn: TWideStringField
      FieldName = 'csosn'
      Size = 4
    end
    object ADOItemOrccfop: TIntegerField
      FieldName = 'cfop'
    end
    object ADOItemOrccst: TWideStringField
      FieldName = 'cst'
      Size = 3
    end
    object ADOItemOrccstipi: TWideStringField
      FieldName = 'cstipi'
      Size = 3
    end
    object ADOItemOrccstpis: TWideStringField
      FieldName = 'cstpis'
      Size = 3
    end
    object ADOItemOrccstcofins: TWideStringField
      FieldName = 'cstcofins'
      Size = 3
    end
    object ADOItemOrcvlraproximpitem: TFloatField
      FieldName = 'vlraproximpitem'
    end
  end
  object ADOOrcamento: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tborcamento')
    Left = 164
    Top = 192
    object ADOOrcamentocodorcamento: TIntegerField
      FieldName = 'codorcamento'
    end
    object ADOOrcamentocodempresa: TSmallintField
      FieldName = 'codempresa'
    end
    object ADOOrcamentocodcli: TSmallintField
      FieldName = 'codcli'
    end
    object ADOOrcamentocodfun: TSmallintField
      FieldName = 'codfun'
    end
    object ADOOrcamentocodcond: TSmallintField
      FieldName = 'codcond'
    end
    object ADOOrcamentocodstatus: TWordField
      FieldName = 'codstatus'
    end
    object ADOOrcamentodata: TDateTimeField
      FieldName = 'data'
    end
    object ADOOrcamentodataentrega: TDateTimeField
      FieldName = 'dataentrega'
    end
    object ADOOrcamentocodcondentrega: TWordField
      FieldName = 'codcondentrega'
    end
    object ADOOrcamentovlrfrete: TFloatField
      FieldName = 'vlrfrete'
    end
    object ADOOrcamentoobs: TWideMemoField
      FieldName = 'obs'
      BlobType = ftWideMemo
    end
    object ADOOrcamentocoddescontotipo: TSmallintField
      FieldName = 'coddescontotipo'
    end
    object ADOOrcamentovlrdesconto: TFloatField
      FieldName = 'vlrdesconto'
    end
    object ADOOrcamentoid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOOrcamentocodusuario: TSmallintField
      FieldName = 'codusuario'
    end
    object ADOOrcamentotime_stamp: TWideStringField
      FieldName = 'time_stamp'
      Size = 14
    end
    object ADOOrcamentobaseicms: TFloatField
      FieldName = 'baseicms'
    end
    object ADOOrcamentovaloricms: TFloatField
      FieldName = 'valoricms'
    end
    object ADOOrcamentovaloripi: TFloatField
      FieldName = 'valoripi'
    end
    object ADOOrcamentobaseicmssub: TFloatField
      FieldName = 'baseicmssub'
    end
    object ADOOrcamentovaloricmssub: TFloatField
      FieldName = 'valoricmssub'
    end
    object ADOOrcamentovalortotal: TFloatField
      FieldName = 'valortotal'
    end
    object ADOOrcamentocodcontato: TSmallintField
      FieldName = 'codcontato'
    end
    object ADOOrcamentovlrdescontototal: TFloatField
      FieldName = 'vlrdescontototal'
    end
    object ADOOrcamentovlraproximp: TFloatField
      FieldName = 'vlraproximp'
    end
  end
  object ADOParcelas: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbparcela')
    Left = 384
    Top = 240
    object ADOParcelascodparcela: TSmallintField
      FieldName = 'codparcela'
    end
    object ADOParcelascodcond: TSmallintField
      FieldName = 'codcond'
    end
    object ADOParcelasdias: TIntegerField
      FieldName = 'dias'
    end
    object ADOParcelasporcentagem: TFloatField
      FieldName = 'porcentagem'
    end
    object ADOParcelasacrescimo: TFloatField
      FieldName = 'acrescimo'
    end
    object ADOParcelasid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOParcelascodusuario: TSmallintField
      FieldName = 'codusuario'
    end
    object ADOParcelastime_stamp: TWideStringField
      FieldName = 'time_stamp'
      Size = 14
    end
  end
  object ADOReceber: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbreceber')
    Left = 164
    Top = 232
    object ADORecebercodrec: TIntegerField
      FieldName = 'codrec'
    end
    object ADORecebercodvenda: TIntegerField
      FieldName = 'codvenda'
    end
    object ADOReceberduplicata: TWideStringField
      FieldName = 'duplicata'
    end
    object ADORecebercodcli: TSmallintField
      FieldName = 'codcli'
    end
    object ADORecebercodempresa: TSmallintField
      FieldName = 'codempresa'
    end
    object ADORecebercodconta: TSmallintField
      FieldName = 'codconta'
    end
    object ADOReceberemissao: TDateTimeField
      FieldName = 'emissao'
    end
    object ADOReceberdatavenc: TDateTimeField
      FieldName = 'datavenc'
    end
    object ADOReceberdescricao: TWideStringField
      FieldName = 'descricao'
      Size = 50
    end
    object ADOReceberdocto: TWideStringField
      FieldName = 'docto'
    end
    object ADORecebercaixa: TWordField
      FieldName = 'caixa'
    end
    object ADORecebercodmovfintipo: TIntegerField
      FieldName = 'codmovfintipo'
    end
    object ADORecebervalorbaixa: TFloatField
      FieldName = 'valorbaixa'
    end
    object ADOReceberdatapagto: TDateTimeField
      FieldName = 'datapagto'
    end
    object ADORecebervalorbruto: TFloatField
      FieldName = 'valorbruto'
    end
    object ADOReceberdatadesconto: TDateTimeField
      FieldName = 'datadesconto'
    end
    object ADORecebervalordesconto: TFloatField
      FieldName = 'valordesconto'
    end
    object ADOReceberdataabatimento: TDateTimeField
      FieldName = 'dataabatimento'
    end
    object ADORecebervalorabatimento: TFloatField
      FieldName = 'valorabatimento'
    end
    object ADORecebercodespecie: TWordField
      FieldName = 'codespecie'
    end
    object ADORecebernumcheque: TIntegerField
      FieldName = 'numcheque'
    end
    object ADOReceberid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADORecebercodusuario: TSmallintField
      FieldName = 'codusuario'
    end
    object ADORecebertime_stamp: TWideStringField
      FieldName = 'time_stamp'
      Size = 14
    end
    object ADORecebercodfrequenciapagto: TSmallintField
      FieldName = 'codfrequenciapagto'
    end
    object ADORecebercodrecrecorrente: TIntegerField
      FieldName = 'codrecrecorrente'
    end
    object ADORecebercodnfmodelo: TIntegerField
      FieldName = 'codnfmodelo'
    end
    object ADORecebercodnfse: TIntegerField
      FieldName = 'codnfse'
    end
  end
  object ADOPagar: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbpagar')
    Left = 108
    Top = 232
    object ADOPagarcodpag: TIntegerField
      FieldName = 'codpag'
    end
    object ADOPagarcodcompra: TIntegerField
      FieldName = 'codcompra'
    end
    object ADOPagarduplicata: TWideStringField
      FieldName = 'duplicata'
      Size = 40
    end
    object ADOPagarcodforn: TSmallintField
      FieldName = 'codforn'
    end
    object ADOPagarcodempresa: TSmallintField
      FieldName = 'codempresa'
    end
    object ADOPagarcodconta: TSmallintField
      FieldName = 'codconta'
    end
    object ADOPagarcodmovfintipo: TIntegerField
      FieldName = 'codmovfintipo'
    end
    object ADOPagardatavenc: TDateTimeField
      FieldName = 'datavenc'
    end
    object ADOPagaremissao: TDateTimeField
      FieldName = 'emissao'
    end
    object ADOPagardocto: TWideStringField
      FieldName = 'docto'
    end
    object ADOPagardescricao: TWideStringField
      FieldName = 'descricao'
      Size = 50
    end
    object ADOPagarcaixa: TWordField
      FieldName = 'caixa'
    end
    object ADOPagarvalorbruto: TFloatField
      FieldName = 'valorbruto'
    end
    object ADOPagardatadesconto: TDateTimeField
      FieldName = 'datadesconto'
    end
    object ADOPagarvalordesconto: TFloatField
      FieldName = 'valordesconto'
    end
    object ADOPagardataabatimento: TDateTimeField
      FieldName = 'dataabatimento'
    end
    object ADOPagarvalorabatimento: TFloatField
      FieldName = 'valorabatimento'
    end
    object ADOPagardatapagto: TDateTimeField
      FieldName = 'datapagto'
    end
    object ADOPagarvalorbaixa: TFloatField
      FieldName = 'valorbaixa'
    end
    object ADOPagarcodespecie: TWordField
      FieldName = 'codespecie'
    end
    object ADOPagarnumcheque: TIntegerField
      FieldName = 'numcheque'
    end
    object ADOPagarid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOPagarcodusuario: TSmallintField
      FieldName = 'codusuario'
    end
    object ADOPagartime_stamp: TWideStringField
      FieldName = 'time_stamp'
      Size = 14
    end
    object ADOPagarcodfrequenciapagto: TSmallintField
      FieldName = 'codfrequenciapagto'
    end
    object ADOPagarcodpagrecorrente: TIntegerField
      FieldName = 'codpagrecorrente'
    end
    object ADOPagarflcustofixo: TWordField
      FieldName = 'flcustofixo'
    end
    object ADOPagarcodnfmodelo: TIntegerField
      FieldName = 'codnfmodelo'
    end
    object ADOPagarcodnfse: TIntegerField
      FieldName = 'codnfse'
    end
  end
  object ADOCompra: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbcompra')
    Left = 328
    Top = 288
    object ADOCompracodcompra: TIntegerField
      FieldName = 'codcompra'
    end
    object ADOCompracodcotmat: TIntegerField
      FieldName = 'codcotmat'
    end
    object ADOCompracodempresa: TSmallintField
      FieldName = 'codempresa'
    end
    object ADOCompracodforn: TSmallintField
      FieldName = 'codforn'
    end
    object ADOCompracodfun: TSmallintField
      FieldName = 'codfun'
    end
    object ADOCompradtpedido: TDateTimeField
      FieldName = 'dtpedido'
    end
    object ADOCompradtprazo: TDateTimeField
      FieldName = 'dtprazo'
    end
    object ADOCompraobs: TWideMemoField
      FieldName = 'obs'
      BlobType = ftWideMemo
    end
    object ADOCompracodcond: TSmallintField
      FieldName = 'codcond'
    end
    object ADOCompracodcondentrega: TWordField
      FieldName = 'codcondentrega'
    end
    object ADOCompravlrfrete: TFloatField
      FieldName = 'vlrfrete'
    end
    object ADOCompracoddescontotipo: TSmallintField
      FieldName = 'coddescontotipo'
    end
    object ADOCompravlrdesconto: TFloatField
      FieldName = 'vlrdesconto'
    end
    object ADOCompraid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOCompracodusuario: TSmallintField
      FieldName = 'codusuario'
    end
    object ADOCompratime_stamp: TWideStringField
      FieldName = 'time_stamp'
      Size = 14
    end
    object ADOCompraflfinanceiro: TWordField
      FieldName = 'flfinanceiro'
    end
    object ADOCompracodcontato: TSmallintField
      FieldName = 'codcontato'
    end
    object ADOCompravlrdescontototal: TFloatField
      FieldName = 'vlrdescontototal'
    end
  end
  object ADOVenda: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbvenda')
    Left = 328
    Top = 344
    object ADOVendacodvenda: TIntegerField
      FieldName = 'codvenda'
    end
    object ADOVendacodorcamento: TIntegerField
      FieldName = 'codorcamento'
    end
    object ADOVendacodos: TIntegerField
      FieldName = 'codos'
    end
    object ADOVendacodempresa: TSmallintField
      FieldName = 'codempresa'
    end
    object ADOVendacodvendatipo: TWordField
      FieldName = 'codvendatipo'
    end
    object ADOVendacodcli: TSmallintField
      FieldName = 'codcli'
    end
    object ADOVendacodfun: TSmallintField
      FieldName = 'codfun'
    end
    object ADOVendacodcond: TSmallintField
      FieldName = 'codcond'
    end
    object ADOVendacodstatus: TWordField
      FieldName = 'codstatus'
    end
    object ADOVendadata: TDateTimeField
      FieldName = 'data'
    end
    object ADOVendacfop: TIntegerField
      FieldName = 'cfop'
    end
    object ADOVendacfopcompl: TIntegerField
      FieldName = 'cfopcompl'
    end
    object ADOVendacodcondentrega: TWordField
      FieldName = 'codcondentrega'
    end
    object ADOVendaiest: TWideStringField
      FieldName = 'iest'
      Size = 14
    end
    object ADOVendadatasaida: TDateTimeField
      FieldName = 'datasaida'
    end
    object ADOVendahora: TWideStringField
      FieldName = 'hora'
      Size = 4
    end
    object ADOVendabaseicms: TFloatField
      FieldName = 'baseicms'
    end
    object ADOVendavaloricms: TFloatField
      FieldName = 'valoricms'
    end
    object ADOVendavaloripi: TFloatField
      FieldName = 'valoripi'
    end
    object ADOVendabaseicmssub: TFloatField
      FieldName = 'baseicmssub'
    end
    object ADOVendavaloricmssub: TFloatField
      FieldName = 'valoricmssub'
    end
    object ADOVendavalorfrete: TFloatField
      FieldName = 'valorfrete'
    end
    object ADOVendavalorseguro: TFloatField
      FieldName = 'valorseguro'
    end
    object ADOVendaoutrasdespesas: TFloatField
      FieldName = 'outrasdespesas'
    end
    object ADOVendavalortotal: TFloatField
      FieldName = 'valortotal'
    end
    object ADOVendacodtransportador: TSmallintField
      FieldName = 'codtransportador'
    end
    object ADOVendafrete: TWordField
      FieldName = 'frete'
    end
    object ADOVendacodveiculo: TIntegerField
      FieldName = 'codveiculo'
    end
    object ADOVendaquantidade: TIntegerField
      FieldName = 'quantidade'
    end
    object ADOVendaespecie: TWideStringField
      FieldName = 'especie'
      Size = 13
    end
    object ADOVendamarca: TWideStringField
      FieldName = 'marca'
      Size = 10
    end
    object ADOVendanumero: TWideStringField
      FieldName = 'numero'
      Size = 12
    end
    object ADOVendapesobruto: TWideStringField
      FieldName = 'pesobruto'
      Size = 12
    end
    object ADOVendapesoliquido: TWideStringField
      FieldName = 'pesoliquido'
      Size = 12
    end
    object ADOVendaobservacoes: TWideMemoField
      FieldName = 'observacoes'
      BlobType = ftWideMemo
    end
    object ADOVendacoddescontotipo: TSmallintField
      FieldName = 'coddescontotipo'
    end
    object ADOVendavlrdesconto: TFloatField
      FieldName = 'vlrdesconto'
    end
    object ADOVendadataentrega: TDateTimeField
      FieldName = 'dataentrega'
    end
    object ADOVendaid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOVendacodusuario: TSmallintField
      FieldName = 'codusuario'
    end
    object ADOVendatime_stamp: TWideStringField
      FieldName = 'time_stamp'
      Size = 14
    end
    object ADOVendaflcomissao: TWordField
      FieldName = 'flcomissao'
    end
    object ADOVendaflnf: TWordField
      FieldName = 'flnf'
    end
    object ADOVendadtnf: TDateTimeField
      FieldName = 'dtnf'
    end
    object ADOVendaflnfe: TWordField
      FieldName = 'flnfe'
    end
    object ADOVendaflcomissaoos: TWordField
      FieldName = 'flcomissaoos'
    end
    object ADOVendaidnfe: TWideStringField
      FieldName = 'idnfe'
      Size = 44
    end
    object ADOVendanotafiscal: TIntegerField
      FieldName = 'notafiscal'
    end
    object ADOVendaflestoque: TWordField
      FieldName = 'flestoque'
    end
    object ADOVendaflfinanceiro: TWordField
      FieldName = 'flfinanceiro'
    end
    object ADOVendaserie: TIntegerField
      FieldName = 'serie'
    end
    object ADOVendacodvendaref: TIntegerField
      FieldName = 'codvendaref'
    end
    object ADOVendanfefinalidade: TWordField
      FieldName = 'nfefinalidade'
    end
    object ADOVendavalorpis: TFloatField
      FieldName = 'valorpis'
    end
    object ADOVendavalorcofins: TFloatField
      FieldName = 'valorcofins'
    end
    object ADOVendacodcontato: TSmallintField
      FieldName = 'codcontato'
    end
    object ADOVendavalorii: TFloatField
      FieldName = 'valorii'
    end
    object ADOVendadcsinfadfisco: TWideMemoField
      FieldName = 'dcsinfadfisco'
      BlobType = ftWideMemo
    end
    object ADOVendaufembarque: TWideStringField
      FieldName = 'ufembarque'
      Size = 2
    end
    object ADOVendadsclocalembarque: TWideStringField
      FieldName = 'dsclocalembarque'
      Size = 60
    end
    object ADOVendavlrdescontototal: TFloatField
      FieldName = 'vlrdescontototal'
    end
    object ADOVendavlraproximp: TFloatField
      FieldName = 'vlraproximp'
    end
  end
  object ADOFinanceiro: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbmovfinanceiro')
    Left = 156
    Top = 288
    object ADOFinanceirodata: TDateTimeField
      FieldName = 'data'
    end
    object ADOFinanceiroid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOFinanceirocodempresa: TSmallintField
      FieldName = 'codempresa'
    end
    object ADOFinanceirocodpag: TIntegerField
      FieldName = 'codpag'
    end
    object ADOFinanceirocodrec: TIntegerField
      FieldName = 'codrec'
    end
    object ADOFinanceirodescricao: TWideStringField
      FieldName = 'descricao'
      Size = 80
    end
    object ADOFinanceiroparcela: TWordField
      FieldName = 'parcela'
    end
    object ADOFinanceirovalor: TFloatField
      FieldName = 'valor'
    end
    object ADOFinanceirosaldo: TFloatField
      FieldName = 'saldo'
    end
    object ADOFinanceirodocumento: TFloatField
      FieldName = 'documento'
    end
    object ADOFinanceirocodconta: TSmallintField
      FieldName = 'codconta'
    end
    object ADOFinanceirocodtipolanc: TWordField
      FieldName = 'codtipolanc'
    end
    object ADOFinanceirocodmovfintipo: TIntegerField
      FieldName = 'codmovfintipo'
    end
    object ADOFinanceirocodcheque: TIntegerField
      FieldName = 'codcheque'
    end
    object ADOFinanceirocodusuario: TSmallintField
      FieldName = 'codusuario'
    end
    object ADOFinanceirotime_stamp: TWideStringField
      FieldName = 'time_stamp'
      Size = 14
    end
    object ADOFinanceirocodcontarel: TSmallintField
      FieldName = 'codcontarel'
    end
    object ADOFinanceiroidrel: TIntegerField
      FieldName = 'idrel'
    end
    object ADOFinanceirocodmovfinanceiro: TIntegerField
      FieldName = 'codmovfinanceiro'
    end
  end
  object ADOMarcas: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbmarca')
    Left = 268
    Top = 344
    object ADOMarcascodmarca: TSmallintField
      FieldName = 'codmarca'
    end
    object ADOMarcasdescricao: TWideStringField
      FieldName = 'descricao'
      Size = 50
    end
    object ADOMarcasid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOMarcascodusuario: TSmallintField
      FieldName = 'codusuario'
    end
    object ADOMarcastime_stamp: TWideStringField
      FieldName = 'time_stamp'
      Size = 14
    end
    object ADOMarcasflveiculo: TWordField
      FieldName = 'flveiculo'
    end
  end
  object ADOEspecie: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbespecie')
    Left = 100
    Top = 288
    object ADOEspeciecodespecie: TWordField
      FieldName = 'codespecie'
    end
    object ADOEspeciedscespecie: TWideStringField
      FieldName = 'dscespecie'
      Size = 30
    end
    object ADOEspecieid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOEspeciecodusuario: TSmallintField
      FieldName = 'codusuario'
    end
    object ADOEspecietime_stamp: TWideStringField
      FieldName = 'time_stamp'
      Size = 14
    end
  end
  object ADOUnid: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbunidade')
    Left = 212
    Top = 344
    object ADOUnidcodunidade: TSmallintField
      FieldName = 'codunidade'
    end
    object ADOUniddescricao: TWideStringField
      FieldName = 'descricao'
      Size = 2
    end
    object ADOUniddecimal: TWordField
      FieldName = 'decimal'
    end
    object ADOUnidid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOUnidcodusuario: TSmallintField
      FieldName = 'codusuario'
    end
    object ADOUnidtime_stamp: TWideStringField
      FieldName = 'time_stamp'
      Size = 14
    end
  end
end
